﻿Public Class PaqueteNegocio

    Public Function listar() As Collection
        Dim dao As New PaqueteDAO
        Return dao.listar()
    End Function

    Public Function insertar(ByVal descripcon As String, ByVal pago As Decimal, ByVal productos As String) As Paquete

        Dim omen As New Paquete()
        omen.descripcion = descripcon
        omen.pago = pago
        omen.productos = productos

        Dim dao As New PaqueteDAO
        Return dao.insertar(omen)
    End Function



    Public Sub actualizar(ByVal idPaquete As Integer, ByVal descripcion As String, ByVal pago As Decimal, ByVal productos As String)

        Dim omen As New Paquete()
        omen.idpaquete = idPaquete
        omen.descripcion = descripcion
        omen.pago = pago
        omen.productos = productos

        Dim dao As New PaqueteDAO
        dao.actualizar(omen)
    End Sub


    Public Sub eliminar(ByVal idPaquete As Integer)
        Dim dao As New PaqueteDAO
        dao.eliminar(idPaquete)
    End Sub

   


End Class
